home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / demo / kushida / 75.bas < prev    next >
BASIC Source File  |  1994-12-27  |  6KB  |  128 lines
  1. 10 PLAY OFF
  2. 20 LOAD@ "ED02.FMB" : LOAD@ "ED05.PMB"
  3. 30 CLS 1 : COLOR 5
  4. 40 PRINT "BARE FEET  [ Naked rhythm edit ]"
  5. 50 PRINT "written  TAKAO KUSHIDA"
  6. 60 S$="%CQ8T120" : PLAY S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$
  7. 70 '
  8. 80 '
  9. 90 '
  10. 100 AL$="@72V10O2L16Q8" : AR$=AL$+"V4" : AE$=AL$+"["
  11. 110 A1L$=AL$+"  CR>G4<BR>G4<ER>G<B GR>G4<BR>G4<AR>G8<"
  12. 120 A1R$=AE$+" >RR B4 RR B4 RR B8  RR B4 RR B4 RR>E8 "
  13. 130 A1E$=AL$+"  CR>G4 ER G4 DRGB  <GR>G4 CR G4 DR G8<"
  14. 140 A1F$=AE$+" >RR B4 RR B4 RRB8   RR B4 RR B4 RR>C8  "
  15. 150 A2L$=AL$+" >B1>C2&C8D8&D4"
  16. 160 A2R$=AE$+" >G1 A2&A8B8&B4"
  17. 170 A2C$=AE$+" >E1 F2&F8G8&G4"
  18. 180 A2E$=AL$+" >G1 &G2&G8 A8&A4"    : A2H$=AL$+" >G1 &G2&G8 F#8&F#4"
  19. 190 A2F$=AE$+" >E1 &E2&E8 F#8&F#4"  : A2I$=AL$+" >E1 &E2&E8 D8&D4"
  20. 200 A2G$=AE$+" >C1 &C2&C8 D8&D4"    : A2J$=AL$+" >C1 &C2&C8<B8&B4"
  21. 210 A2K$=AL$+" >G1 &G1"
  22. 220 A2M$=AE$+" >E1 &E1"
  23. 230 A2N$=AE$+" >C1 &C1"
  24. 240 A3L$=AL$+" >   A8>D8<B>E8DG8EA8GB8< A8>D8<B>E8DG8EB8AGE "
  25. 250 A3R$=AR$+" >E8 A8>D8<B>E8DG8EA8GB8< A8>D8<B>E8DG8EB8A   "
  26. 260 A3E$=AL$+" >   A8>D8<B>E8DG8EA8GB8< A8>D8&D DD8R@41<D@72>D<@44B<A8B8"
  27. 270 A3F$=AR$+" >E8 A8>D8<B>E8DG8EA8GB8< A8>D8&D DD  @41<D@72>D<@44B<A8B8"
  28. 280 A4L$=AL$+"@44Q8%R2>    B>RBR>ERRRARRGRRA<<G A8>BR>ERRRARRGRRAR" 
  29. 290 A4R$=AR$+"@44Q8%L2> G8 B>RBR>ERRRARRGRR<<ER A8>BR>ERRRARRGRR  "
  30. 300 '
  31. 310 C1L$="@5V9O3L16Q1%L5   CCRRCCCRCRRCCRRC %R5 CRCRC>C<CRCRRCCRCR %C"
  32. 320 C1R$="@5V4O3L16Q1%R5R8 CCRRCCCRCRRCCRRC %L5 CRCRC>C<CRCRRCCR   %C"
  33. 330 C2$ ="@37V6O4L16Q1(CRRR)3 CR>C<C RCR<C>(CRRR)3 Q8"
  34. 340 C2E$="@37V6O4L16Q1CR>CR<C>C<C>CRCR<C>C<C>CR<RCCRC>C<C>CR<CRC>C<CCRQ8"
  35. 350 C2F$="@37V2O4L16Q1R5CR>CR<C>C<C>CRCR<C>C<C>CR<RCCRC>C<C>CR<CRC>C90Q8"
  36. 360 C3L$="@44V12O5L16Q1     DRRRE4R4B>B<RE  R4G4RRR>G<G8R<B Q8"
  37. 370 C3R$="@44V6 O5L16Q1<B5> DRRRE4R4B>B<RE  R4G4RRR>G<G90   Q8"
  38. 380 C3E$="@44V12O5L16Q1     D2RRE8RARRR RRG4 RRR>G<GR(%R5A#32%L5B32) Q8"
  39. 390 C3F$="@44V6 O5L16Q1<B5> D2RRE8RARRR RRG4 RRR>G<G90               Q8"
  40. 400 C3G$="@44V12O5L16Q1     D2RRE8RARR RRRGRRRR Q8 @94V8<<B4>D4  "
  41. 410 C3H$="@44V6 O5L16Q1<B5> D2RRE8RARR RRRGRRRR Q8 @94V2<<B4>D90 "
  42. 420 C4L$="@71V8 O3L16Q8     EGRARB>D8 &D4&D8CD <B2A4B4"
  43. 430 C4R$="@71V2 O3L16Q8 R8  EGRARB>D8 &D4&D8CD <B2A4B8"
  44. 440 C4E$="@71V8 O3L16Q8     G4&G8D4&D8E4 &E2 B4>D4"
  45. 450 C4F$="@71V2 O3L16Q8 R8  G4&G8D4&D8E4 &E2 B4>D8"
  46. 460 C4G$="@71V8 O3L16Q8    >G1&G2&G8 "
  47. 470 C4H$="@71V2 O3L16Q8 R8 >G1&G2&G8 "
  48. 480 E1L$="@44V5O5L16Q1RR(C#R)3<BR>C#<B>B8>C#<G#RR(C#R)3<BR>C#<B>B8>C#<G#"
  49. 490 E1R$="@44V1O5L16Q1E5 RR(C#R)3<BR>C#<B>B8>C#<G#RR(C#R)3<BR>C#<B>B90"
  50. 500 B1$ ="@88V8 O0L16Q8  >C1<G1"
  51. 510 B1E$="@88V11O0L16Q8  >CR>C<CRRCGRCRC<G8>C  <GGRG>G<DG8&G>D8&D<G8&GB"
  52. 520 B1F$="@88V12O0L16Q8  F1&F2&F4 %L9F%R9F%CF8"
  53. 530 B1G$="@88V12O0L16Q4  R4G8&GA RRRRERGR  R4G8&GA RRRRG4 Q8"
  54. 540 B2$ ="@88V8 O0L16Q8 >E1D2&D8<A4&A8"
  55. 550 B2E$="@88V8 O0L16Q8 >C1&C2&C8D4&D8"
  56. 560 B2F$="@88V8 O0L16Q8 >C1 R2R4  ]]<ABBB"
  57. 570 B2G$="@88V8 O0L16Q8 >C1&C1"
  58. 580 B3$ ="@88V11O0L16Q8 E>EE8>ER<<B>D<E>E<GAA8B8>E<E>E8>ER<<B>D<EDG8A8B8"
  59. 590 B3E$="@88V11O0L16Q8 E>EE8>ER<<B>D<E>E<GAA8B8 E2 @41V7 >A>AAAA<A>AA#"
  60. 600 B3F$="@41V7 O2L16Q8 BRRRBRRRBRRA Q1BRAA#Q8 BRRRBRRRBRRRBRBR"
  61. 610 B3G$="@41V7 O2L16Q8 BRRRBRRRBRRA Q1BRAA#Q8 BRRRRRRRRRARARAR"
  62. 620 B4$ ="@29V6 O1L16Q3 >DEEEE<E>EE D4<D>DDD ERR<D>DDDD DDDD<B>DDD Q8"
  63. 630 B4E$="@29V6 O1L16Q6 >DEEEE<E>EED8B<A#8A8B> DEEEE<E>EED8B<A#8A8>A Q8"
  64. 640 B4F$="@29V8 O1L16Q4  E1&E2 RRRR @88Q8<ABBB "
  65. 650 '
  66. 660 P1$= "@9 V8 O0L16  GRRRGRRGGRRRGRRR     GRRRGRRRGRRRGRGR   "
  67. 670 S1$= "@9 V8 O0L16  ERRRRRRRRRRRRRRR     RRRRRRRRRRRRERER   "
  68. 680 P2$= "@1 V11O2L16  RRRRBRRRRBRRRRRB     RRRRBRRRRGRRBRV3BB "
  69. 690 S2$= "@1 V11O2L16  RRRRBRRRRBRRRRRB     RRRRRRRRRRRRRRRR   "
  70. 700 P3$= "@3 V10O2L16  RRBRRERRB4CRR@7>B<@3 ERGRRERR@7>G<@3BRRCRRB"
  71. 710 S3$= "@3 V10O2L16  RRBRRERRB4CRR@7>B<@3 E1"
  72. 720 P4$= "@8 V5 O5L16  RRRCRRCRRCRRCRRB     CRRCRRCRRCRRCRCR"
  73. 730 S4$= "@8 V5 O5L16  RRRCRRCRRCRRCRRB     CRRRRRRRRRRRRRCC"
  74. 740 P5$= "@1 V6 O0L16  GRRRGRRRGRRRGRRR     GRRRGRRRGRRRGRRR"
  75. 750 S5$= "@1 V6 O0L16  GRRRGRRRGRRRGRRR     GRRRRRRRRRRR[CGGG"
  76. 760 SS5$="@1 V6 O0L16  GRRRRRRRRRRRRRRR     RRRRRRRRRRRRRRRR"
  77. 770 P6$= "@9 V6 O6L16 ((@9V4FR @6>C8<)3 @9V4FF @6]]>C8<[[ )"
  78. 780 SP1$="@11V7 O0L16  C8&CC&C2>R8C8<        C8&CC&C2>C4     "
  79. 790 '
  80. 800 'PLAY A4L$,A4R$,B3F$,C3L$,C3R$,B4$,P5$ : END
  81. 810 'PLAY B3F$,C3L$,C3R$,E1L$,E1R$,,P5$,,P3$ : END
  82. 820 'PLAY B3F$,,,,E1L$,E1R$,P5$,P6$ :END
  83. 830 'PLAY ,,,,,,,P5$,P6$ :  END
  84. 840 'GOTO 1260
  85. 850 '
  86. 860 '
  87. 870 '
  88. 880 PLAY     ,A1L$,A1R$
  89. 890 PLAY     ,A1E$,A1F$
  90. 900 PLAY B1$ ,A1L$,A1R$,C1L$,C1R$,C2$ ,P1$,P3$
  91. 910 PLAY B1$ ,A1E$,A1F$,    ,C1R$,C2$ ,P1$,P3$
  92. 920 PLAY B1E$,A1L$,A1R$,C1L$,C1R$,C2E$,P1$,P2$,P3$,P4$,SP1$
  93. 930 PLAY B1E$,A1E$,A1F$,C1L$,C1R$,C2E$,P1$,P2$,P3$,P4$
  94. 940 PLAY B1E$,A1L$,A1R$,C1L$,C1R$,C2E$,P1$,P2$,P3$,P4$
  95. 950 PLAY B1E$,A1E$,A1F$,C1L$,C1R$,C2E$,S1$,S2$,S3$,S4$
  96. 960 PLAY B1$ ,A1L$,A1R$,C1R$,C2E$,C2F$,P3$,SP1$
  97. 970 PLAY B1$ ,A1E$,A1F$,C1R$,C2E$,C2F$,P3$
  98. 980 PLAY B1$ ,A1L$,A1R$,C1R$,C2E$,C2F$,P3$,SP1$
  99. 990 PLAY B1$ ,A1E$,A1F$,C1R$,C2E$,C2F$,P3$
  100. 1000 PLAY B1$ ,    ,C1L$,C1R$,C2E$,C2F$,P3$,SP1$
  101. 1010 PLAY B1F$,    ,C1L$,C1R$,C2E$,C2F$,P3$
  102. 1020 PLAY B2$ ,    ,    ,C1R$,    ,C2F$,P3$,SP1$
  103. 1030 PLAY B2F$,    ,    ,C1R$,    ,    ,P3$,BP1$
  104. 1040 PLAY B2$ ,A2L$,A2R$,A2C$,C1L$,C1R$,P5$,P3$,P6$,SP1$
  105. 1050 PLAY B2E$,A2E$,A2F$,A2G$,C1L$,C1R$,P5$,P3$,P6$
  106. 1060 PLAY B2$ ,A2L$,A2R$,A2C$,C1L$,C1R$,P5$,P3$,P6$,SP1$
  107. 1070 PLAY B2F$,A2H$,A2I$,A2J$,C1L$,C1R$,S5$,P3$,P6$
  108. 1080 PLAY B3$ ,A3L$,A3R$,C1L$,C1R$,,P5$ ,P3$,P6$,SP1$
  109. 1090 PLAY B3$ ,A3E$,A3F$,C1L$,C1R$,,P5$ ,P3$,P6$
  110. 1100 PLAY B3$ ,A3L$,A3R$,C1L$,C1R$,,P5$ ,P3$,P6$,SP1$
  111. 1110 PLAY B3E$,A3E$,A3F$,C1L$,C1R$,,S5$ ,S3$
  112. 1120 PLAY B3F$,A4L$,A4R$,    ,    ,   ,SS5$
  113. 1130 PLAY B3F$,A4L$,A4R$,    ,    ,   ,P5$
  114. 1140 PLAY B3F$,A4L$,A4R$,    ,    ,B4$,SS5$
  115. 1150 PLAY B3G$,A4L$,A4R$,    ,    ,B4$,S5$
  116. 1160 PLAY B3F$,A4L$,A4R$,C3L$,C3R$,B4E$,P5$ ,P6$
  117. 1170 PLAY B3F$,A4L$,A4R$,C3E$,C3F$,B4E$,P5$ ,P6$
  118. 1180 PLAY B3F$,A4L$,A4R$,C3L$,C3R$,B4E$,P5$ ,P6$
  119. 1190 PLAY B3G$,A4L$,A4R$,C3E$,C3F$,B4E$,P5$ ,P6$
  120. 1200 PLAY B4$ ,    ,    ,C3L$,C3R$,    ,P5$ ,P6$
  121. 1210 PLAY B4$ ,    ,    ,C3E$,C3F$,    ,P5$ ,P6$
  122. 1220 PLAY B4$ ,    ,    ,C3L$,C3R$,    ,SS5$,P6$
  123. 1230 PLAY B4F$,    ,    ,C3G$,C3H$,    ,SS5$
  124. 1240 PLAY B2$ ,A2L$,A2R$,A2C$,C4L$,C4R$,P5$ ,P3$,P6$,SP1$
  125. 1250 PLAY B2E$,A2E$,A2F$,A2G$,C4E$,C4F$,P5$ ,P3$,P6$
  126. 1260 PLAY B2$ ,A2L$,A2R$,A2C$,C4L$,C4R$,P5$ ,P3$,P6$,SP1$
  127. 1270 PLAY B2G$,A2K$,A2M$,A2N$,C4G$,C4H$,SS5$,S3$,S6$
  128.